home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
cbs_121q.zip
/
REGISTER.Q-A
< prev
Wrap
Text File
|
1990-03-23
|
2KB
|
74 lines
CLEARSCREEN
POSTINFO
DISPLAY " NEW USER QUESTIONAIRE"
DISPLAY "||Please answer all questions to insure complete verification.||"
DISPLAY "What is your full name | "
DISPLAY "? "
ASK 60 1
OUTPUTANSWER "Name: " 1
DISPLAY "||What is your day phone #|"
DISPLAY "? "
ASK 14 2
OUTPUTANSWER "PHONE: " 2
DISPLAY "||What is your evening phone #| "
DISPLAY "? "
ASK 14 3
OUTPUTANSWER "PHONE: " 3
DISPLAY "||What is your STREET address|"
DISPLAY "? "
ASK 60 4
OUTPUTANSWER "Street: " 4
DISPLAY "||What is your CITY and STATE|"
DISPLAY "? "
ASK 60 5
OUTPUTANSWER "CITY/STATE: "5
DISPLAY "||What is your ZIP CODE|"
DISPLAY "? "
ASK 9 6
OUTPUTANSWER "Zip Code: " 6
DISPLAY "||Your date of birth (mm/dd/yr) ?"
DISPLAY "|? "
ASK 10 7
OUTPUTANSWER "date of birth" 7
DISPLAY "||What type of computer do you use ?"
DISPLAY "| A. IBM or Clone 386"
DISPLAY "| B. IBM or Clone 286"
DISPLAY "| C. IBM or Clone XT"
DISPLAY "| D. None MS-DOS based Computer"
DISPLAY "|| ? "
GETCHOICE ABCD 8
OUTPUTANSWER "Computer: " 8
DISPLAY "||What speed does your modem operate at? "
DISPLAY "| A. 300 "
DISPLAY "| B. 1200"
DISPLAY "| C. 2400"
DISPLAY "| D. 9600"
DISPLAY "| E. OTHER"
DISPLAY "|| ? "
GETCHOICE ABCDE 9
OUTPUTANSWER "Modem speed: " 9
DISPLAY "||Do you do any programming? (Y/N) |"
DISPLAY "|? "
ASK 1 10
OUTPUTANSWER "Programming ? " 10
IF 10 = "Y"
DISPLAY "||What languages do you work with ? |"
ASK 70 11
OUTPUTANSWER "Languages: " 11
ENDIF
DISPLAY "||Are you presently a Sysop? (Y/N) |"
DISPLAY "|? "
ASK 1 12
OUTPUTANSWER "Sysop ? " 12
IF 12 = "Y"
DISPLAY "||Please give your System Name, phone # & Net/Node # (if it apply's)|"
ASK 70 13
OUTPUTANSWER "System : " 13
ENDIF
DISPLAY "||Thank you for answering these questions.|"
DISPLAY "|If you have any comments or questions, please leave a message to"
DISPLAY "|the Sysop when you are logging off the system. Thank You. |"
DISPLAY "|Press <ENTER> to continue"
ASK 1 14
QUIT